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PETER LLEWELLYN 


Do you erase and reprogram your own 
EPROM's? 


-18- 


SOFTWARE TO MATCH THE HARDWARE MODS 


If you do you may sometimes find that ` 


although a particular location may 
appear to contain a l after "erasure" 
iù will spuriously flip back to Ø when 
the location next door has been 
programmed low, thus 
inconsistent results. 
to imperfect | erasure, 
apparent 
because the sticky label you have just 
removed has left a film of adhesive 
over the window. It is surprising just 
how good a UV filter some of these 


glues can be!! So do youself a favour, 
before erasure, remove any previous 


label over the window and clean the 
window with a solvent. Meths will 
remove some adhesives, turps will 
remove others, but see you polish that 
window real bright man! 


A LAST REMINDER: 
THIS MONTH'S MEETING IS ON 


THURSDAY, 02 APRIL, 1981 AT THE 
| COMMUNITY CENTRE, CHESS ROAD, 
CLAREMONT. 


giving ` 
This can be due 
not due to 
insufficient erasure time, but 


SUGGESTED. 


tn =: ve 


COLIN NATURMAN 


The above is a Space Invaders program 
for the Sharp PC-1211]1 and as you can 
See it does not resemble other Space 
Invaders at all. (Well, the Yen signs 
do ‘slightly’ resemble the real thing.) 


The program can be run either by the 
RUN command in the RUN or DEF mode, of 
by SHPT SPC in the DEF mode. It will 
ask you for a number. This is for the 
seed value for the random routine. 
(The PC-1211 does not have a RND 
function.) You then have a choice of 1 
~ 7 invaders. Don't be dismayed if th- 
computer 
continuous loop. 
a) checking to see 
invaders you entered is ridiculous or 
not, b) clearing the variables A ~G, 
c) choosing random positions for the 
invaders, and d) Checking if it hasn't 
chosen the same position twice. All of 
this takes centonS ,... yarns «see etr 
years to do. It then displays the 
amount of shots and the invaders (i.e. 
Yen signs). You then can fire Ü - 18. 
If Ø is fired you shoot yourself. 1 - 
18 will either hit (display of word 
HIT!) or miss (diplay of word MISSED!). 
This goes on until you either hit all 
the invaders or have no more shots 
left. So now all two of you who own 
PC-1211's can play a PC-1211 game in 
which you don't have to be a 
mathematical genius like in the games 
provided in the manual. 


What it is doing is 


Space invaders Garg 


seems to be caught in W 


if the amount of © 


"ata 


=, 
A = 
j 


10 : " " : REM " SPACE INVADERS GAME BY COLIN ASHLEY NATURMAN " 

20 : BEEP 3 : PAUSE " SPACE INVADERS " : PAUSE " ***spACE INVADERS*** " 
30 : BEEP 1 : INPUT " ENTER A NUMBER 1 ' n; Z 

40 : X = ABS(439147 + X+ Z) : Y = 68 +] 

50 : BEEP 1 : INPUT " HOW MANY INVADERS? "Jj 


60 : IF (J > 7) + (J < 1) + (J > < INT J) THEN 50 

70 : S= 7 :F0OR L = 1T07 : A(L) = p : NEXT L : FOR Q = 1 TO J 
80 : T =23 +X : X =T - INT(T/Y) * Y 

90 : R = INT X : R = (R/10 - INT(R/10)) * 10 + 1 


100 : IF (R = A) + (R = B) + (R = C) + (R = D) + (R = E) + (R = F) + (R = G) THEN 80 

110 : A(Q) = R : NEXT Q : GOTO 270 | 

120 : BEEP 1 : INPUT à FIRE CO-ORDINATE = ? "0: IF 0 = Ø BEEP 1 : PAUSE " YOU 
SHOT YOURSELF IDIOT: " : S = S - 1 : GOTO 210 | 

130 : IF {0 > 10) + {0 < 0) + ( O < > INT í. THEN 120 

140 : REM " CHECK FOR HIT" 

160: S$=S-1] 

160 : IF (0 < > A) * (0 < > B) * (0 < > C) * (0 < > a * 0 <> E) * (O < > F) * 
(0 < > G) BEEP 1 : PAUSE " MISSED. " : GOTO 270 

170: j = J - 1 : BEEP 1: PAUSE " HIT. " 

180 : IFJ=9 BEEP 1 : PAUSE " YOU WIN!" : GOTO 390 

190 : GOSUB 370 | 

200 : GOTO 270 | | 

210.: BEEP 1 : PAUSE " INVADERS LEFT = " ; H$ : IF 0 = ie THEN 390 

220 : BEEP | : PAUSE " NO MORE SHOTS LEFT: " 2 

230 : BEEP 1 : INPUT “ PLAY AGAIN? " e pa 


240 : IF.K$ = "N" BEEP 3 : END 
2b5bü ; IF K$ = "Y" THEN 50 
260 : GOTO 230 
270 : IF J = 7 LET H$ = "¥yyyyyy" 
280 : IF J = 6 LET H$ = "¥¥¥¥¥¥" 
290 : IF J = 5 LET H$ = "yyy" 
300 : IFJ = 4 LET H$ = "¥¥¥¥" 
310 : IF J = 3 LET H$ = "gy" 
320 : IF J = 2 LET H$ = "¥¥" 
330 : IF J = 1 LET H$ = "g" 
= 340.: IF S = Ø THEN 210 
™ 350: BEEP 1: PAUSE "SHOTS ="; S; " " , H$ 
— 360 : GOTO 120 | . 
370 : FOR N = 1 TO 7 : IF A(N) = O LET A(N) = 


380 : NEXT N : RETURN a pa VAS 3% 
390 : BEEP 1 : PAUSE "YOU HAD" ; S ; "SHOT(S) LEFT!" : GOTO 230 


NLLNNLLNLLNLLLLLLLLLLLLLAAALLLLNLONNLNINLLLLLLLQLLLLLILLLHLLLLLLLLHLLLOLLLQQNNLNLLLLI ILL 


WE EXTEND OUR THANKS TO BOTH 
THE COMPUTER SHOP 
AND 
COMPUTERS ETC 
FOR THEIR ASSISTANCE IN THE PRODUCTION OF THIS ISSUE OF C3PO, 
VOL 4 NO 3 APRIL 1981 


